home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 23 / Amiga Format AFCD23 (Feb 1998, Issue 107).iso / -coverdisks- / subsdisk / subs.dms / subs / gui4cli.LZX / Gui4Cli / G4C / Dialer.gc < prev    next >
Text File  |  2003-12-15  |  3KB  |  159 lines
  1. G4C
  2.  
  3. ; a gui for keeping phone numbers etc..
  4. ; It needs the program DialNumber.lha - on Aminet - to actually 
  5. ; dial the number - or it could be ajdusted for any other similar
  6. ; program, very easily.
  7.  
  8.  
  9. WINBIG 270 24 307 179 Dialer.gc
  10. WinType 11110001
  11. BOX 0 0 0 0  out button
  12.  
  13. xOnLoad
  14. extract dialer.gc guipath path
  15. joinfile $path Dialer.dat datafile
  16. GuiOpen Dialer.gc
  17. lvuse dialer.gc 1
  18. lvchange $datafile
  19. editflag = 0
  20.  
  21. xOnClose
  22. if $editflag = 1
  23.     ezreq 'Datafile was changed.\nDo you want to save it ?' 'Save|Discard|CANCEL' choice
  24.     if $choice = 0
  25.     ; cancelled
  26.     guiopen dialer.gc
  27.     stop
  28.     elseif $choice = 1
  29.         ; save
  30.         lvuse dialer.gc 1
  31.         lvsave $datafile
  32.     endif
  33. endif
  34. GuiQuit Dialer.gc
  35. guiquit dialer.g
  36.  
  37.  
  38. ; ==============================================================
  39. ;    Listview
  40. ; ==============================================================
  41.  
  42. XLISTVIEW 5 4 208 172 "" item "" 0 SHOW
  43. gadid 1
  44.  
  45.  
  46. ; ==============================================================
  47. ;    Listview handling
  48. ; ==============================================================
  49.  
  50. BOX 218 4 83 65 in button
  51.  
  52. XBUTTON 222 7 75 14 "Add"
  53. guiopen dialer.g ''
  54.  
  55. XBUTTON 222 22 75 14 "Edit"
  56. lvuse dialer.gc 1
  57. if $$lv.line > ''
  58.    rec = $$lv.rec
  59.    guiopen dialer.g $dialer.gc/rec
  60. endif
  61.  
  62. XBUTTON 222 37 75 14 "Delete"
  63. lvuse dialer.gc 1
  64. lvdel -1
  65.  
  66. XBUTTON 222 52 75 14 "Save"
  67. lvuse dialer.gc 1
  68. lvsave $datafile
  69. editflag = 0
  70.  
  71. ; ==============================================================
  72. ;    Dialing & options
  73. ; ==============================================================
  74.  
  75. BOX 218 72 83 26 in button
  76. XRADIO 276 75 18 9 tone 2
  77. RSTR Tone 1
  78. RSTR Pulse 2
  79.  
  80. BOX 217 100 83 26 in button
  81. XRADIO 276 103 18 9 modem 2
  82. RSTR Modem ""
  83. RSTR Audio AUDIO
  84.  
  85. XBUTTON 218 158 83 18 "DIAL"
  86. lvuse dialer.gc 1
  87. if $$lv.line > ''
  88.    rec = $$lv.rec
  89.    cutvar rec copy word -1 phone
  90.    SetWinTitle dialer.gc 'Dialing $phone ...          '
  91.    cli 'dialnumber >nil: $phone $modem'
  92.    SetWinTitle dialer.gc 'Connect $phone         '
  93. endif
  94.  
  95.  
  96. ; &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
  97. ; ==============================================================
  98.     NEWFILE dialer.g  ; for add/edit items
  99. ; ==============================================================
  100. ; &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
  101.  
  102. WINBIG 164 114 324 49 Dialer.g
  103. WinType 11110001
  104. BOX 0 0 324 49 out button
  105.  
  106. xOnOpen rec
  107. if $rec > ''
  108.    cutvar rec cut word -1 phone
  109.    extract phone clean phone
  110.    cutvar rec cut word -1 '' ; also cut the "-"
  111.    name = $rec
  112. else
  113.    name = ''
  114.    phone = ''
  115. endif
  116. update dialer.g 1 $name
  117. update dialer.g 2 $phone
  118. setgad dialer.g  1 on
  119.  
  120. CTEXT 11 4 "Enter full name and particulars:" #screen 8 2 0 "0001"
  121.  
  122. XTEXTIN 10 16 306 13 "" name "" 100
  123. gadid 1
  124. gadhelp 'Enter Name etc and press ENTER'
  125. if $name < '  '
  126.    ; nothing entered - close
  127.    guiclose dialer.g
  128.    lvuse dialer.gc 1
  129.    lvsort asc
  130. else
  131.    setgad dialer.g 2 on
  132. endif
  133.  
  134. CTEXT 16 32 "Telephone number:" #screen 8 2 0 "0001"
  135.  
  136. XTEXTIN 140 31 176 13 "" phone "" 30
  137. gadid 2
  138. gadhelp 'Enter Phone number and press ENTER to store.'
  139. lvuse dialer.gc 1
  140. if $rec > ''
  141.    ; we were editing a record
  142.    lvput '$name - $phone'
  143.    ; clear line for next time and close
  144.    rec = ''
  145.    guiclose dialer.g
  146.    lvsort asc
  147. else
  148.    ; adding a new record
  149.    lvadd '$name - $phone'
  150.    ; continue to add more records
  151.    name = ''
  152.    phone = ''
  153.    update dialer.g 1 ''
  154.    update dialer.g 2 ''
  155.    setgad dialer.g 1 on
  156. endif
  157. dialer.gc/editflag = 1
  158.  
  159.